(wordstar-mode): Add a mode-class property.

diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index 91f8b0170fc932574cad51e33e24fe4b067887c9..93bb0a05a62523a27a59278544d58f1b5e24aca4 100644 (file)
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -181,6 +181,8 @@
   (define-key wordstar-C-q-map "\C-y" 'ws-kill-eol)
   (define-key wordstar-C-q-map "\177" 'ws-kill-bol))
 
+(put 'wordstar-mode 'mode-class 'special)
+
 ;;;###autoload
 (defun wordstar-mode ()
   "Major mode with WordStar-like key bindings.